(load-library): Use `get-load-suffixes' instead of `load-suffixes'.

diff --git a/lisp/files.el b/lisp/files.el
index ab69c7958a9018722c746a3783b934c019f5d077..db3309fcf0abcdba4a8741b94e9a66734dcee352 100644 (file)
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -699,7 +699,7 @@ This is an interface to the function `load'."
   (interactive
    (list (completing-read "Load library: "
                          'locate-file-completion
-                         (cons load-path load-suffixes))))
+                         (cons load-path (get-load-suffixes)))))
   (load library))
 
 (defun file-remote-p (file)